home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tpmenu50.arc / TCMENU.DEF < prev    next >
Text File  |  1991-04-28  |  24KB  |  533 lines
  1. ;
  2. ;
  3. ; ╔═════════════╦═══════════════════════════════════╦═══════════════╗
  4. ; ║             ║                                   ║               ║
  5. ; ║ Written by  ║            TCMENU.DEF             ║  26 Feb 1990  ║
  6. ; ║             ║         COLOR MOUSE MENUS         ║               ║
  7. ; ║ G. Piosenka ║        FOR TURBO PASCAL 5.0       ║  Version 0    ║
  8. ; ║             ║                                   ║               ║
  9. ; ╠═════════════╩═══════════════════════════════════╩═══════════════╣
  10. ; ║                                                                 ║
  11. ; ║  This is the source file for color menus for Turbo Pascal 5.0   ║
  12. ; ║  This source file can be used by the Microsoft Makemenu or      ║
  13. ; ║  Logitech Newmenu compilers to produce the desired menu. I      ║
  14. ; ║  have included this file so that users can alter the program    ║
  15. ; ║  to suit their particular needs. If you do modify the source    ║
  16. ; ║  code please do not pass them on as changes to this set of      ║
  17. ; ║  files since it will cause a lot of confusion. Most likely      ║  
  18. ; ║  you will want to alter the menu color. The easiest way is      ║
  19. ; ║  to look for all lines with the form Popup x,y,c where x and    ║
  20. ; ║  y are the upper left co-ordinates of the menu and c is the     ║
  21. ; ║  color. For these menus the color is set at 30 which means a    ║
  22. ; ║  blue background with yellow letters. The number is determined  ║
  23. ; ║  by the formula attribute color = 16*background + foreground.   ║
  24. ; ║  Blue is background color number 1 and yellow is foreground     ║
  25. ; ║  color 14. See the Turbo Pascal reference manual for definition ║
  26. ; ║  of colors and their associated number                          ║
  27. ; ║                                                                 ║
  28. ; ╚═════════════════════════════════════════════════════════════════╝
  29. ;
  30. ;
  31. ;
  32. Begin Lb,Mb,Rb,Ml,Mr,Mup,Mdn,300,100
  33. Mb: Type Esc                                   ; escapes
  34. Rb: Type 0,64                                  ; type F6 - zoom screen
  35. Ml: Type 0,75                                  ; left arrow
  36. Mr: Type 0,77                                  ; right arrow
  37. Mup: Type 0,72                                 ; up arrow
  38. Mdn: Type 0,80                                 ; down arrow
  39.  
  40. ;------------------------   Screen Matching   ---------------------------
  41.  
  42. ;Look for OS Shell highlighted in file menu  
  43. Lb: Match 10,5,15,"OS shell",shell,nm7
  44.  
  45. ;Look for Compile message window
  46. nm7: Match 19,44,,"Press any",edit,nm8
  47.  
  48. ;Look for TC prompt to rebuild file
  49. nm8: Match 7,11,,"║ Source",rebuild,nm9
  50.  
  51. ;Look for TC prompt for disk error
  52. nm9: Match 22,21,,"║ Disk",diskmnu,nm10
  53.  
  54. ;Look for TC Save prompt
  55. nm10: Match 6,11,,"╔═",spmnu,nm11
  56.  
  57. ;Look for TC prompt to overwrite file
  58. nm11: Match 8,5,,"╔═",ovmnu,nm12
  59.  
  60. ;Look for presence of Help screen
  61. nm12: Match 6,37,,"─ Help",helpmnu,nm13a
  62.  
  63. ;Look for TC prompt for overwrite  configaration file
  64. nm13a: Match 10,45,,"║ Overwrite",conover,nm13
  65.  
  66. ;Look if File option is highlighted in main TC menu if so type Enter
  67. nm13: Match 1,5,15,"File",ent,nm14
  68.  
  69. ;Look if Edit option is highlighted in main TC menu if so set Editmouse
  70. nm14: Match 1,13,15,"Edit",edit,nm15
  71.  
  72. ;Look if Run option is highlighted in main TC menu if so type enter
  73. nm15: Match 1,21,15,"Run",ent,nm16
  74.  
  75. ;Look if Compile option is highlighted in main menu if so type Enter
  76. nm16: Match 1,28,15,"Compile",ent,nm18
  77.  
  78. ;Look if Options is highlighted in TC main menu if so type Enter
  79. nm18: Match 1,39,15,"Options",ent,nm19
  80.  
  81. ;Look if Debug is highlighted in TC main menu if so type Enter
  82. nm19: Match 1,50,15,"Debug",ent,nm20
  83.  
  84. ;Look if Break is highlighted in TC main menu if so type Enter
  85. nm20: Match 1,59,15,"Break",ent,nm21
  86.  
  87.  
  88. ;Check for Search Options prompt on unzoomed edit screen
  89. nm21: Match 3,2,,"Option",searchmenu,nm22
  90.  
  91. ;Check for Search Options prompt on zoomed edit screen
  92. nm22: Match 2,1,,"Option",searchmenu,nm23
  93.  
  94. ;Check for Replace with prompt on unzoomed Edit screen
  95. nm23: Match 3,2,,"Replace with",ent,nm24
  96.  
  97. ;Check for Replace with prompt on zoomed Edit screen
  98. nm24: Match 2,1,,"Replace with",ent,nm25
  99.  
  100. ;Check for Search Find prompt on unzoomed Edit screen
  101. nm25: Match 3,2,,"Find",ent,nm26
  102.  
  103. ;Check for Search Find prompt on zoomed Edit screen
  104. nm26: Match 2,1,,"Find",ent, nm27
  105.  
  106. ;Check for Replace decession prompt in unzoomed Edit screen
  107. nm27: Match 3,2,,"Replace (",repmenu,nm28
  108.  
  109. ;Check for Replace decession prompt in zoomed Edit screen
  110. nm28: Match 2,1,,"Replace (",repmenu,nm29
  111.  
  112. ;Check to see if the Edit screen is active if so set editmouse
  113. nm29: Match 25,59,,"F10-M",xscr,nm30
  114.  
  115. ;Check to see if Edit screen is active on 43 line VGA
  116. nm30: Match 43,59,,"F10-M",xscr,nm31
  117.  
  118. ;Check to see if Edit screen is active of 50 line VGA
  119. nm31: Match 50,59,,"F10-M",xscr,nm32
  120.  
  121. ;xscr checks to see if unzoomed edit screen is active
  122. xscr: Match 2,37,,"═ Edit",Editscr,xscr1
  123.  
  124. ;xscr1 checks to see if zoomed message screen is active
  125. xscr1: Match 2,37,,"Message",Edit,xscr2
  126.  
  127. ;xscr2 checks to see if unzoomed message screen is active
  128. xscr2: Match 2,39,,"Edit",Edit,Editscr 
  129.  
  130. ;Check to see if Watch screen is active on 25 line display
  131. nm32: Match 25,31,,"F10-Menu",watchscr,nm33
  132.  
  133. ;Check to see if Watch screen is active on 43 line screen
  134. nm33: Match 43,31,,"F10-Menu",watchscr,nm34
  135.  
  136. ;Check to see if Watch screen is active on 50 line display
  137. nm34: Match 50,31,,"F10-Menu",watchscr,ent
  138.  
  139. ;---------------------   Edit Main Menu Highlight   ------------------
  140.  
  141. edit: execute editmouse,ent
  142. ;Assign mouse so it is faster in Edit screen than in main menu 
  143.  
  144. editmouse: assign Lb,mb,rb,ml,mr,mup,mdn,40,60
  145. stdmouse:  assign Lb,mb,rb,ml,mr,mup,mdn,200,100
  146.  
  147. ;-----------------------------   DISKMNU   ----------------------------
  148.  
  149. diskmnu: Popup 17,30,30
  150.            Text "╔═════════════════════╗"
  151.            Text "║   Disk not ready    ║"
  152.            Text "╠══════════╦══════════╣"
  153.            Text "║  Abort   ║  Retry   ║"
  154.            Text "╚══════════╩══════════╝"
  155.            Select 4,4,5,abort
  156.            Select 4,15,5,retry
  157.           Pend
  158. abort: type "A"
  159. retry: type "R"
  160.  
  161. ;-----------------------------  REBUILD  ------------------------------
  162. rebuild: Popup 9,20,30
  163.            Text "╔═════════════════════╗"
  164.            Text "║      Rebuild ?      ║"
  165.            Text "╠══════════╦══════════╣"
  166.            Text "║   Yes    ║    No    ║"
  167.            Text "╚══════════╩══════════╝"
  168.            Select 4,5,3,yes
  169.            Select 4,17,2,no
  170.           Pend
  171.  
  172. ;------------------------------Config Overwrite  -----------------------
  173.  
  174. conover: Popup 12,50,30
  175.            Text "╔═════════════════════╗"
  176.            Text "║  Overwrite File ?   ║"
  177.            Text "╠══════════╦══════════╣"
  178.            Text "║   Yes    ║    No    ║"
  179.            Text "╚══════════╩══════════╝"
  180.            Select 4,5,3,yes
  181.            Select 4,17,2,no
  182.           Pend
  183.  
  184. ;----------------------------   SHELL   -----------------------------------
  185.  
  186. shell: execute shellset,ent                  ;assign mouse -select shell
  187. shellset: Assign shellmnu,shellmnu,shellmnu  ;set mouse to popup shell menu
  188. shellmnu: Popup 10,27,30
  189.            Text "╔═════════════════════╗"
  190.            Text "║ Return to Turbo C ? ║"
  191.            Text "╠══════════╦══════════╣"
  192.            Text "║   Yes    ║    No    ║"
  193.            Text "╚══════════╩══════════╝"
  194.            Select 4,5,3,exit
  195.            Select 4,17,2,zip
  196.           Pend
  197. ent: Type Enter                              ; type enter
  198. exit: Execute ex1,ex2
  199. ex1: assign lb,mb,rb,ml,mr,mup,mdn,300,100   ; set normal mouse
  200. ex2: type "Exit",Enter                       ; type exit to leave shell
  201.  
  202. ;-------------------------- SAVE PROMPT ---------------------------------
  203.  
  204. spmnu: Popup 10,20,30
  205.          Text "╔═════════════════════╗"
  206.          Text "║ Save Current File ? ║"
  207.          Text "╠══════════╦══════════╣"
  208.          Text "║   Yes    ║    No    ║"
  209.          Text "╚══════════╩══════════╝"
  210.          Select 4,5,3,yes
  211.          Select 4,17,2,No
  212.        Pend
  213. yes: Type "Y"
  214. no:  Type "N"
  215.  
  216. ;------------------------ Overwrite File  -----------------------------
  217.  
  218. Ovmnu: Popup 12,20,30
  219.          Text "╔═════════════════════╗"
  220.          Text "║   Overwrite File ?  ║"
  221.          Text "╠══════════╦══════════╣"
  222.          Text "║   Yes    ║    No    ║"
  223.          Text "╚══════════╩══════════╝"
  224.          Select 4,5,3,yes
  225.          Select 4,17,2,No
  226.        Pend
  227.  
  228. ;--------------------------  Help  ------------------------------------
  229.  
  230. helpmnu: Popup 3,15,30
  231.          Text "╔══════════════════════════════════════════════════╗"
  232.          Text "║  Cancel Menu      Page Up          Cancel Help   ║"
  233.          Text "║  Help Index       Page Down        Keyword       ║"
  234.          Text "╚══════════════════════════════════════════════════╝"
  235.          Select 2,4,11,zip
  236.          Select 2,21,9,pup
  237.          Select 2,38,11,scape
  238.          Select 3,4,11,index
  239.          Select 3,21,9,pdwn
  240.          Select 3,38,11,ent
  241.          Pend
  242. pup:    type 0,73
  243. pdwn:   type 0,81
  244. index:  type 0,59
  245. scape:  type Esc
  246. zip:    nothing
  247.  
  248.  
  249. ;--------------------------  EDIT SCREEN MENU   ------------------------
  250. ; This menu appears when the LB is pressed with the Edit window active
  251.  
  252. Editscr: execute editmouse,editmenu
  253. editmenu: Popup 1,1,30
  254.           Text "╔═════════╦═════════╦═════════╦═════════╦═════════╦═════════╦══════════╦═══════╗"
  255.           Text "║  MISC   ║  FILE   ║  EDIT   ║  SCREEN ║   RUN   ║ COMPILE ║ DEBUG/BR ║ WATCH ║"
  256.           Text "╠═════════╬═════════╬═════════╬═════════╬═════════╬═════════╬══════════╬═══════╣"
  257.           Text "║  Cancel ║ Load    ║ Find M  ║ Zoom    ║  Run    ║ to OBJ  ║ Eval     ║ Add   ║"
  258.           Text "║  Bar    ║ Pick    ║ Set  M  ║ Switch  ║  Trace  ║ Make    ║ Stack    ║ Del   ║"
  259.           Text "║  Dir    ║ New     ║ Block   ║ User    ║  Step   ║ Link    ║ Find F   ║ Edit  ║"
  260.           Text "║  Misc   ║ Save    ║ Search  ║ Refresh ║  to Cur ║ Build   ║ Tog BP   ║ Remov ║"
  261.           Text "║  Shell  ║ Write to║ Replace ║ Edit    ║  Reset  ║ Primary ║ Clr BP   ║       ║"
  262.           Text "║  Quit   ║ Chg Dir ║ Research║         ║         ║ Info    ║ View BP  ║       ║"
  263.  
  264.           Text "╚═════════╩═════════╩═════════╩═════════╩═════════╩═════════╩══════════╩═══════╝"
  265.           Select 4,4,6, zip                ; cancel menu
  266.           Select 4,13,8,load               ; load file 
  267.           Select 4,23,8,findmarker         ; find marker
  268.           Select 4,33,7,zoom               ; zoom screen
  269.           Select 4,44,6,runrun             ; run
  270.           Select 4,53,7,toobj              ; compile to obj file
  271.           Select 4,63,7,eval               ; evaluate   
  272.           Select 4,74,5,addwat             ; add watch
  273.           Select 5,4,6, barmenu            ; TC's top bar menu 
  274.           Select 5,13,8,pick               ; pick file
  275.           Select 5,23,8,setmarker          ; set marker
  276.           Select 5,33,7,switch             ; switch active screen
  277.           Select 5,44,6,trace              ; trace execution   
  278.           Select 5,53,7,make               ; compile - make
  279.           Select 5,63,7,stack              ; debug - stack
  280.           Select 5,74,5,delwat             ; delete watch
  281.           Select 6,4,6, dir                ; directory
  282.           Select 6,13,8,newfile            ; newfile 
  283.           Select 6,23,8,blockcmds          ; menu of block commands
  284.           Select 6,33,7,userscr            ; userscreen
  285.           Select 6,44,6,step               ; run step over
  286.           Select 6,53,7,link               ; compile - link
  287.           Select 6,63,7,findfunc           ; find function location
  288.           Select 6,74,5,editwat            ; edit watchpoint
  289.           Select 7,4,6, misccmds           ; menu of misc commands
  290.           Select 7,13,8,save               ; save file
  291.           Select 7,23,8,search             ; search text
  292.           Select 7,33,7,refresh            ; refresh screen
  293.           Select 7,44,6,tocursor           ; run to cursor 
  294.           Select 7,53,7,build              ; compile - build
  295.           Select 7,63,7,togbrk             ; toggle breakpoint     
  296.           Select 7,74,5,remov              ; remov all watches  
  297.           Select 8,4,6, shellsel           ; shell to DOS
  298.           Select 8,13,8,writeto            ; write file to file
  299.           Select 8,23,8,replace            ; replace text   
  300.           Select 8,33,8,editor             ; go to edit screen
  301.           Select 8,44,6,reset              ; run - reset
  302.           Select 8,53,7,primary            ; primary file  
  303.           Select 8,63,7,clrbrk             ; clear all breakpoints
  304.           Select 8,74,5,zip                ; do nothing
  305.           Select 9,4,6, quit               ; quit
  306.           Select 9,13,8,chgdir             ; change directory
  307.           Select 9,23,8,repsearch          ; repeat search
  308.           Select 9,33,8,zip                ; do nothing
  309.           Select 9,44,6,zip                ; do nothing
  310.           Select 9,53,7,info               ; get compile info
  311.           Select 9,63,7,viewbrk            ; view next breakpoint
  312.           Select 9,74,5,zip                ; do nothing
  313.         Pend
  314. load:       type 0,61                      ; type F3
  315. zoom:       type 0,63                      ; type F5
  316. runrun:     type 0,102                     ; type CNTRL F9
  317. toobj:      type 0,112                     ; type ALT F9
  318. eval:       type 0,97                      ; type CNTRL F4
  319. addwat:     type 0,100                     ; type CNTRL F7
  320. barmenu:    execute stdmouse,barmenu1
  321. barmenu1:   type 0,68                      ; type F10
  322. pick:       type 0,106                     ; type ALT F3
  323. switch:     type 0,64                      ; type F6
  324. trace:      type 0,65                      ; type F7
  325. make:       type 0,67                      ; type F9
  326. stack:      type 0,96                      ; type CNTRL F3
  327. delwat:     type 0,48,"D"                  ; type ALT B - D
  328. dir:        type 0,33, "D"                 ; type ALT F - D
  329. newfile:    type 0,33, "N"                 ; type ALT F - N
  330. userscr:    type 0,108                     ; type ALT F5
  331. step:       type 0,66                      ; type F8
  332. link:       type 0,46,"L"                  ; type ALT C - L
  333. findfunc:   type 0,32,"F"                  ; type ALT D - F
  334. togbrk:     type 0,101                     ; type CNTRL F8
  335. editwat:    type 0,48,"E"                  ; type ALT B - E
  336. save:       type 0,60                      ; type F2
  337. search:     type 17,"F"                    ; type CNTRL Q - F
  338. refresh:    type 0,32, "R"                 ; type ALT D - R
  339. tocursor:   type 0,62                      ; type F4
  340. build:      type 0,46, "B"                 ; type ALT C - B
  341. clrbrk:     type 0,48, "C"                 ; type ALT B - C
  342. remov:      type 0,48, "R"                 ; type ALT B - R
  343. shellsel:   execute shl1,shellset          ; type and set shellmouse
  344. shl1:       type 0,33, "O"                 ; type ALT F - O
  345. quit:       type 0,45                      ; type ALT X
  346. writeto:    type 0,33, "W"                 ; type ALT F - W
  347. replace:    type 17, "A"                   ; type CNTRL Q - A
  348. editor:     execute editor1,editmouse      ; 
  349. editor1:    type 0,18                      ; type ALT E
  350. reset:      type 0,95                      ; type CNTRL F2
  351. primary:    type 0,46, "P"                 ; type ALT C - P
  352. info:       type 0,46, "G"                 ; type ALT C - G
  353. viewbrk:    type 0,48, "V"                 ; type ALT B - V
  354. chgdir:     type 0,33, "C"                 ; type ALT F - C
  355.  
  356.  
  357.  
  358. ;-----------------------   BLOCK COMMAND MENUS   ------------------------
  359. ;This menu pops up when block is selected from the main EDIT menu
  360.  
  361. blockcmds: Popup 1,5,30
  362.            Text "╔═════════════════════════════════════════════════════════════════════╗"
  363.            Text "║                          BLOCK COMMANDS                             ║"
  364.            Text "╠═════════════════════════════════════════════════════════════════════╣"
  365.            Text "║  Cancel Menu   Copy    Disk Read      Print    Set Start  Indent    ║"
  366.            Text "║  Hide/Show     Move    Disk Write     Delete   Set End    Outdent   ║"
  367.            Text "╚═════════════════════════════════════════════════════════════════════╝"
  368.            Select 4,4,11,zip   
  369.            Select 5,4,11,bhide
  370.            Select 4,18,4,bcopy
  371.            Select 5,18,4,bmove
  372.            Select 4,26,10,bread
  373.            Select 5,26,10,bwrite
  374.            Select 4,41,6, bprint
  375.            Select 5,41,6,bdelete
  376.            Select 4,50,9,bstart
  377.            Select 5,50,9,bend 
  378.            Select 4,61,7,bdent
  379.            Select 5,61,7,bout
  380.           Pend
  381. bstart: type 11,"B"                        ; type CNTRL K - B
  382. bend:   type 11,"K"                        ; type CNTRL K - K
  383. bcopy:  type 11,"C"                        ; type CNTRL K - C
  384. bmove:  type 11,"V"                        ; type CNTRL K - V
  385. bread:  type 11,"R"                        ; type CNTRL K - R
  386. bwrite: type 11,"W"                        ; type CNTRL K - W
  387. bprint: type 11,"P"                        ; type CNTRL K - P
  388. bhide:  type 11,"H"                        ; type CNTRL K - H
  389. bdent:  type 11,"I"                        ; type CNTRL K - I
  390. bout:   type 11,"U"                        ; type CNTRL K - U
  391. bdelete: Popup 17,30,30
  392.            Text "╔═════════════════════╗"
  393.            Text "║    Delete  Block ?  ║"
  394.            Text "╠══════════╦══════════╣"
  395.            Text "║   Yes    ║    No    ║"
  396.            Text "╚══════════╩══════════╝"
  397.            Select 4,5,3,bdel
  398.            Select 4,17,2,zip
  399.           Pend
  400. bdel:   type 11,"Y"                        ; type CNTRL K - Y
  401.  
  402.  
  403. ;------------------------   Find Marker Menu   ---------------------------
  404. ; This Menu pops up when Find marker is selected from Edit main menu
  405.  
  406. findmarker: popup 10,25,30
  407.              Text "╔════════════════════════════════════════════╗"
  408.              Text "║ Cancel Menu  Marker Number  0   1   2   3  ║"
  409.              Text "╚════════════════════════════════════════════╝"
  410.              Select 2,3,11,zip             ; cancel menu
  411.              Select 2,31,1,fm0             ; marker 0 
  412.              Select 2,35,1,fm1             ; marker 1    
  413.              Select 2,39,1,fm2             ; marker 2
  414.              Select 2,43,1,fm3             ; marker 3
  415.             pend
  416. fm0: type 17, "0"                          ; type CNTRL Q - 0
  417. fm1: type 17, "1"                          ; type CNTRL Q - 1
  418. fm2: type 17, "2"                          ; type CNTRL Q - 2
  419. fm3: type 17, "3"                          ; type CNTRL Q - 3
  420.  
  421. ;-----------------------   Set Marker Menu   -----------------------------
  422. ;This menu pops up when Set marker is selected from Edit Main menu
  423.  
  424. setmarker: popup 10,25,30
  425.              Text "╔════════════════════════════════════════════╗"
  426.              Text "║ Cancel Menu  Marker Number  0   1   2   3  ║"
  427.              Text "╚════════════════════════════════════════════╝"
  428.              Select 2,3,11,zip             ; cancel menu
  429.              Select 2,31,1,sm0             ; marker 0
  430.              Select 2,35,1,sm1             ; marker 1
  431.              Select 2,39,1,sm2             ; marker 2
  432.              Select 2,43,1,sm3             ; marker 3
  433.            pend
  434. sm0: type 11, "0"                          ; type CNTRL K - 0
  435. sm1: type 11, "1"                          ; type CNTRL K - 1
  436. sm2: type 11, "2"                          ; type CNTRL K - 2
  437. sm3: type 11, "3"                          ; type CNTRL K - 3
  438.  
  439. ;----------------------   Search Menu   ---------------------------------
  440. ;This menu pops up when search is selected from the Edit main menu
  441.  
  442. searchmenu: Popup 1,5,30
  443.  Text "╔═════════════════════════════════════════════════════════════════════╗"
  444.  Text "║                         SEARCH OPTIONS                              ║"
  445.  Text "╠═════════════════════════════════════════════════════════════════════╣"
  446.  Text "║  Cancel Menu       Global       Within Block     No case    Execute ║"
  447.  Text "║  Cancel Search     Backward     Whole word       No Prompt          ║"
  448.  Text "╚═════════════════════════════════════════════════════════════════════╝"
  449.         Select 4,4,13,zip
  450.         Select 5,4,13,scape
  451.         Select 4,22,8,global
  452.         Select 5,22,8,backward
  453.         Select 4,35,12,inblock
  454.         Select 5,35,12,wholeword
  455.         Select 4,52,9,nocase 
  456.         Select 5,52,9,noprompt
  457.         Select 4,63,7,ent
  458.         Select 5,63,7,zip
  459.         Pend
  460. repsearch: type 12                         ; type CNTRL L
  461. global:    type "G"                        ; type G
  462. inblock:   type "L"                        ; type L
  463. wholeword: type "W"                        ; type W
  464. nocase:    type "U"                        ; type U
  465. noprompt:  type "N"                        ; type N
  466. backward:  type "B"                        ; type B
  467.  
  468. ;-----------------------   MISC COMMANDS MENU   ----------------------
  469. ;This menu pops up when MISC is selected fromt eh Edit main menu
  470.  
  471. misccmds: Popup 10,20,30
  472.           Text " ╔═════════════════════════════════════════════╗"
  473.           Text " ║         MISCELLANEOUS  COMMANDS             ║"
  474.           Text " ╠═════════════════════════════════════════════╣"
  475.           Text " ║  Cancel Menu         Toggle AutoIndent      ║"
  476.           Text " ║  Restore Line        Toggle Tab Mode        ║"
  477.           Text " ║  Pair Match Left     Pair Match Right       ║"
  478.           Text " ║  Abort Operation     Toggle Opt Fill Mode   ║"
  479.           Text " ╚═════════════════════════════════════════════╝"
  480.           Select 4,5,15,zip
  481.           Select 5,5,15,resline
  482.           Select 6,5,15,pairml
  483.           Select 7,5,15,abortop
  484.           Select 4,25,20,tindent
  485.           Select 5,25,20,ttabs
  486.           Select 6,25,20,pairmr
  487.           Select 7,25,20,tfill
  488.           Pend
  489. resline: type 17, "L"                        ; type CNTRL Q - L
  490. pairml:   type 17,"["                         ; type CNTRL Q - [  
  491. abortop: type 21                             ; type CNTRL U
  492. tindent: type 15,"I"                         ; type CNTRL O - I
  493. ttabs:   type 15,"T"                         ; type CNTRL O - T
  494. pairmr:  type 17,"]"                         ; type CNTRL Q - ]
  495. tfill:   type 15,"F"                         ; type CNTRL O - F
  496.  
  497. ;---------------------   Replace Menu   ----------------------------
  498. ;This menu pops up when replace yes/no is matched on edit screen
  499.  
  500. repmenu: Popup 1,1,30
  501.           Text "╔═══════════════════════════════════════════╗"
  502.           Text "║  Substitute      Ignore    Abort Search   ║"
  503.           Text "╚═══════════════════════════════════════════╝"
  504.           Select 2,4,10,yes
  505.           Select 2,20,6,no
  506.           Select 2,30,12,scape
  507.          Pend
  508.  
  509.  
  510. ;--------------------------  WATCH SCREEN MENU   -----------------------
  511.  
  512. watchscr: popup 10,30,30
  513.            Text " ╔═════════════════════════════════════╗"
  514.            Text " ║        WATCH  SCREEN  MENU          ║"
  515.            Text " ╠═════════════════════════════════════╣"
  516.            Text " ║  Cancel Menu     Main Bar Menu      ║"
  517.            Text " ║  Add Watch       Delete Watch       ║"
  518.            Text " ║  Edit Watch      Remove All Watches ║"
  519.            Text " ║  Get Help        Go to Edit Screen  ║"
  520.            Text " ╚═════════════════════════════════════╝"
  521.            Select 4,5,11,zip
  522.            Select 5,5,11,addwatch
  523.            Select 6,5,11,ent
  524.            Select 7,5,11,helpcmd
  525.            Select 4,21,19,barmenu
  526.            Select 5,21,19,delwatch
  527.            Select 6,21,19,remov
  528.            Select 7,21,19,switch
  529.           pend
  530. addwatch: type 0,82                             ; Type INS
  531. delwatch: type 0,83                             ; Type Del
  532. helpcmd:  type 0,59                             ; Type F1
  533.